ADD PROGRAMS TO DIRECTORY 


PAGE 1 


01100 


31100 
0 1101 
01102 

01103 

01104 
0110 5 
01106 
01107 
01110 
01111 
01112 

01113 

01114 


ADDER SRC 


, T I Tt-E ADD PROGRAMS TO DIRECTORY 

77 - 27^71 

/DIGITAL EQUIPMENT CORPORATION; MAYNARD, MASS, 
/EO HILTON 
/ 

, ABS 

,LOC 1100 
/ 


000514 

CRLF = 514 


700312 

K R B = 7 0 0 3 1 2 


000560 

UpRE EX-560 


000522 

TYRONE =522 


000460 

TSIXBTM60 


0B0253 

W A I T = 2 5 3 


000120 

GETMON=120 


000565 

DIRECT?565 


0 0 0 7 56 

SLINK=756 


000332 

K ! R I T E = 3 3 2 


000314 

READ=314 


00002 4 

BLKNUM-24 


000533 

LR0T6=533 


000540 

P $00=540 


700144 

R S D = / 0 0 1 4 4 


700112 

R R B = 7 0 0 1 1 2 


7 0 0 1 0 1 

R S E = 7 0 0 1 0 1 


707764 

EBA=707764 


707702 

E E M = 7 07 7 0 2 

/ 


100514 

ADDER JMS 

crle 

100560 

JMS 

uprefx 

7 0 77 6 4 

E8 A 


707702 

EEM 


202257 

LAC 

(ENTER*! 

100460 

JMS 

T 5 J X B f 

100514 

AD0,1 JMS 

CRLE 

202260 

LAC 

(TJTMSGsl+400000 

1 0 0 4 6 0 

JMS 

TS I XBT 

7777/1 

LAW 

r?7 

042227 

DAC 

CARCNT# 

142224 

DHM 

A# 

142225 

D2M 

Bit 


, EJECT 


/SET UP INPUT CHARACTER COUNTER 
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ADDER 

SRC ADD 

PROGRAMS TO DIRECTORY 


01115 

100253 

ADPERA 

/ 

JMS 

WAIT 

/wait for keyboard input 

31116 

542261 


sad 

( 000203 

/control c? 

0 1117 

600120 


JMP 

GETMON 

/YES 

01120 

542262 


SAP 

(0003/7 

/NO 

01121 

741330 


SKP 


/RUBOUT? 

01122 

601132 


JMP 

ADDERB 

/NO 

01123 

102060 


JMS 

PBPRSR 

/ 

01124 

202227 


LAC 

CARCNT 


01125 

541111 


SAP 

AQDERAn4 

/THIS JUST CHECKS THAT CHARACTER COUNT 

01126 

6 3 1115 


JMP 

AUDERA 

/DOESN'T GO MORE NEGATIVE THAN MINUS 6, 

01127 

342263 


TAD 

<-l 


01130 

042227 


DAC 

CARCNT 


01131 

601115 


JMP 

ADDERA 


01132 

542264 

ADDERB 

sad 

(000215 

/TERMINATOR? 

01133 

741000 


SKP 


/YES 

01134 

601137 


JMP 



0113 5 

100514 


JMS 

CRLF 


01136 

601147 


JMP 

ADDERC 


0 113 7 

502265 


AND 

(000077 


01140 

101740 


JMS 

QBPRSL 


01141 

442227 


isz 

CARCNT 


0114 2 

601115 


JMP 

AUDERA 


01143 

202266 


LAC 

( WHAT*! 


01144 

100460 


JMS 

TSIXBT 


01145 

700312 


KRB 



01146 

601136 


JMP 

ADD « X 


01147 

442227 

ADDERC 

ISZ 

CARCNT 

/NOW LEFT JUSTIFY CHARACTERS TYPED 

01150 

751330 


SKPJCLA 


/IN 

01151 

631160 


JMP 

AUDERDa4 


31152 

101740 


JMS 

QBPRSL 


01153 

442227 


ISZ 

CARCNT 


311.54 

601150 


JMP 

1 ^4 


01155 

202224 


LAC 

A 

/CHARACTERS ARE LEFT JUSTIFIED 

01156 

741200 


SNA 



01157 

601136 


JMP 

ADD 1 1 

/IF NOTHING THEN CR WAS INPUT, TRY AGAIN 

01160 

777742 


LAW 

~ 3 6 

0116 1 

342231 


QAC 

cnt# 

/SET UP TO INSERT INTO DIRECTORY 

01162 

202267 


LAC 

(DIRECT 

/SEARCH FOR VACANT LOCATION AT END OF 

01163 

042246 


DAC 

TEMP# 

/DIRECTORY 

01164 

222246 

ADPERP 

L AC * 

TEMP 

/EMPTY YET? 

31165 

741200 


SNA 


/NO 

01166 

60120.0 


JMP 

APDERE 

/YES 

01167 

232246 


LAC 

TEMP 


01170 

342270 


TAD 

( 000004 


01171 

042246 


DAC 

TEMP 


01172 

442231 


I SH 

CNT 


01173 

6 0 116 4 


JMP 

AUOERD 


0.11/4 

2022/1 


LAC 

(DIRPL^l+400000 

/DIRECTORY FULL, TELL OPERATOR, 

01175 

1 0 0 4 6 0 


JMS 

TSIXBT 

31176 

703312 


KRB 



31177 

630122 


JMP 

.EJECT 

GETMON+2 




3 

ADDER 

SRC ADD 

PROGRAMS 

i TO DIRECTORY 


01200 

202272 

ADDERE 

LAC 

(000003 

/SET UP TITLE WORD INDICATORS 

01201 

042242 


DAC 

PROS?# ' 

/AND PROGRAM SJ2E INDICATORS 

31202 

042251 


DAC 

TMQQEl# 


01203 

0 4 225 2 


DAC 

TMQDE2# 


01204 

442251 


XSH 

TMQDEi 


01205 

442252 


I 52 

TMQDE2 


01206 

442252 


IS? 

TMQDE2 


01207 

142254 


OHM 

updtbk# 

/UPDATE BLOCK It USED FOR > 4|< FILES 

01210 

7777/7 


LAW 



01211 

042234 


DAC 

EOF# 

/SET UP END OF FILE INDICATOR 

01212 

042250 


DAC 

TITIND# 

/TITLE INDICATOR 

01213 

7 033 D 2 


CAF 


/tEll READER to OQ 

01214 

700144 


R5B 



01215 

2022/3 


EAC 

(007777 


01216 

040015 


DAC 

15 


01217 

770000 


LAW 

*10000 


31220 

042253 


DAC 

TOTSHE# 

/WORD COUNT 

01221 

142244 


DZM 

REDTIM# 

/SETUP READER TIMER TO ALLOW UP 

01222 

142256 


D2M 

WRDCNT# 

/TO FIVE FEET OF LEADER 

01223 

777777 


LAW 



01224 

342240 


DAC 

mode# 

/reader mqdei used to determine first 

01225 

142230 


D?_M 

cHksum# 

/WORD OF BLOCK 

01226 

131403 

ADPERG 

JMS 

READPT 

/GET A WORD 

01227 

442240 


IS2 

MODE 

/FIRST WORD OF BLOCK? 

01230 

601245 


JMP 

APDERH 

/NO 

01231 

202243 


LAC 

REPBUF# 

/GET WORD 

01232 

502274 


AND 

(377000 

/WORD PAIR RESIDES IN BITS 1*8, 

012.33 

744030 


CEL 


/SET UP COUNTER, 

01234 

742020 


RTR 



01235 

101763 


JMS 

KROT6 


01236 

740001 


CM A 



01237 

342275 


TAD 

(2 


01243 

042256 


DAC 

WRDCNT 

/WORD COUNT FOR BLOCK 

01241 

202243 


LAC 

REDBUF 

/GET WORD 

01242 

502276 


AND 

(Y 


01243 

5422 77 


SAD 

(5 


31244 

142234 


OHM 

EOF 

/END OF FILE? 


, EJECT 


add programs to directory 
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0 X 2 4 5 

202243 

ADDERH U AC 

MODE 

/HO 

01246 

542242 

SAD 

PRQSZ 


01247 

1017/0 

JMS 

PRGSZE 


0125 0 

542251 

SAD 

TMQDE1 

/TITLE? 

0 1 2 s i 

1013 0 0 

JMS 

title" 


01252 

542252 

SAD 

TMODE2 

/title? 

01253 

101300 

JMS 

TITLE' 


31254 

202243 

LAC 

RED8UF 


01255 

060015 

DAC# 

15 


01256 

202234 

uc 

EOF 


01257 

741200 

SNA 


/END OF FILE? 

01260 

6012/1 

JMP 

i+U 


01261 

442253 

ISH 

TOfSZE 


01262 

601226 

JMP 

adders 


01263 

10144:1 

JMS 

Of WRIT 


01264 

202273 

C A c 

{ 7777 


0126 5 

040015 

DAC 

15 


0 12 6 6 

770000 

LAW 

»10000 


01267 

042253 

DAC 

TDTSZE 


012 70 

601226 

JMP 

adders 


01271 

442253 

ISZ 

TOT SZK 


01272 

442253 

ISZ 

TdTSZE 


012/3 

740000 

NOP 



01274 

101403 

JMS 

REA-DPT 


01275 

202243 

U AC 

REDBUF 


01276 

060015 

DAC# 

15 


31277 

101441 

JMS 

, EJECT 

PTWRJT 
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ADDER SRC 


ADO PROGRAMS TO DIRECTORY 


O 


O 


o 

01 300 

01 301 

0 0 0 0 0 0 

442250 

TITLE 

0 

JS2 

TITINU 

o 

0130 2 

6013 1 6 


JMP 

T 1 TLL A 

0 1 3 0 3 

202243 


LAC 

REDBUF 


01304 

7 4 01 0 S3 


SMA 


o 

01305 

101327 


JMS 

TJTLEC 

01306 

502300 


AND 

(377777 


01307 

102007 


JMS 

CNV6BT 

o 

01310 

542224 


SAD 

A 

01311 

741000 


SKP 



01312 

60133 / 


JMP 

T 1 TERR 

o 

0 1313 

202240 

T I TLEB 

LAC 

MODE 

013 1 4 

621300 


J M P # 

title 


0 1 3 1 5 

2 0 2 243 

titlea 

LAC 

redbuf 

o 

01316 

102007 


JMS 

CNV68T 

01317 

542225 


SAD 

B 


01320 

741000 


SKP 


o 

01321 

601337 


JMP 

T I TERR 

01322 

777771 


LAW 

» 7 


01323 

042251 


DAC 

tmodei 

o 

01324 

042252 


DAC 

TM0DE2 

01325 

042242 


DAC 

PROSE ' 


01326 

601313 


JMP 

/ 

0 

TITLED 

0 

01327 

000000 

TITLED 



013 30 

042226 


DAC 

C# 


01331 

77777 l 


LAW 

-7 

o 

01332 

042251 


DAC 

TMODEI 


01333 

042252 


DAC 

TMQDE2 


0133 4 

042242 


DAC 

PROSE ' 

o 

01335 

202226 


LAC 

C 


01336 

621327 


JMP** 

TITLED 


O 

O 

o 

o 

o 

o 

o 


o 


/TITLE INDICATOR FOR FIRST OR SECOND WORD 
/SECOND WORD 
/FIRST WORD 


/MASK OFF BIT TO INDICATE TWO WORD TITLE 

/DIFFERENT 

/NO 

/YES, TITLE ERROR, 

/GET original word 

/same as above only on second word 


/TITLE ERROR 

/NOW change title mode indicator 

/SO NO MORE WORDS WILL BE RECOGNISED 

/AS TITLES 

/OR PROGRAM SIZES 




page 
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ADDER 

SRC ADD 

PROGRAMS 

; jo directory 




0 1 3 3 7 

202301 

T I TERR 

LAC 

(titllr^i+400000 




0 1 3 4 0 

1 0 0 4 6 0 


JMS 

tsixbt 




013 4 % 

202250 


LAC 

T'iTIND 




01342 

542302 


SAD 

(000001 




01343 

601360 


JMP 

TJTERA 




01344 

202243 


LAC 

REDBUF 




01345 

740100 


SMA 





01346 

601354 


J.MP 

TITERB 




01347 

502300 


AND 

(3777/7 




01350 

102007 


JMS 

CNV6Bf 




01351 

101371 


JMS 

P6B I T ~ 




01352 

101403 


JMS 

READPT 




01353 

202243. 


LAC 

REDBUF 




0 1 3 54 

102007 

TITERB 

JMS 

CNV6BT 




01355 

1 0 137 1 


JMS 

P6BIT~ 




01356 

100514 


JMS 

crlf 




01357 

601106 


JMP 

ADD , 1 




013 60 

777777 

T1TERA 

LAW 

«1 

/GET FIRST WORD 



01361 

340015 


TAD 

15 




01362 

340015 


DAC 

15 




01363 

220015 


LAC* 

15 




01364 

5B2300 


AND 

(377777 




01365 

102007 


JMS 

C N V 6 8 f 




01366 

101371 


JMS 

P6BIT" 

/PRINT IT 



0136 7 

202243 


LAC 

REDBUF 




01370 

601354 


JMP 

T|TERB 




01371 

000000 

R6B I T 

0 





01372 

041376 


DAC 

P6BIT1 

/SET UP TO PRINT 

IN 

6 SIT 

01373 

202303 


LAC 

( P 6 B I f 1 w 1 

/ENTER WITH WORD 

IN 

AC 

0137 4 

100460 


JMS 

TSIXBT 




01375 

621371 


JMP* 

P6BIT~ 




31376 

000000 

P68IT1 

0 





01377 

3 0 0000 


0 





01400 

202304 

REEDER 

LAC 

(REAUER^t + 4000000 /PRINT 1 CHECK 

SUM 

ERROR' 

01401 

100460 


JMS 

TSIXBT 

/AND START AGAIN 



01402 

601100 


JMP 

adder" 







, EJECT 
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adueh 

SRC ADO 

PROGRAMS 

i TO DIRECTORY 


0 X 4 M 3 

000000 

READPT 

0 



014 0 4 

7 0 0 1 0 1 


RSF 



0 14 05 

601431 


JMP 

READAP 

/timed WAIT I.OQP FOR reader flag 

01406 

700314 


IORS 



0 14 07 

502305 


AND 

(001000 

/CHECK FOR READER NO TAPE FLAG 

01410 

740200 


SHA 



01411 

601436 


JMP 

RNQTPE 

/ERROR 

01410 

700112 


RR8 



0 1413 

042243 


PAG 

KEDBUE 

/PUT WORD AWAY 

01414 

342230 


TAD 

CHKSUM 


01415 

042230 


0 AC 

CHKSUM 

/UPDATE CHECKSUM 

01416 

442256 


ISZ 

WRPCNT 


01417 

601425 


JMP 

,+6 


01420 

777776 


LAW 

w2 


01421 

042240 


PAC 

MODE 


01422 

202230 


LAC 

CHKSUM 


01423 

740200 


SHA 



01424 

601400 


JMP 

REEDER 


014 25 

202306 


LAC 

(747777 


01426 

042244 


PAC 

REDTIM 

/SETUP NEW CONSTANT T I ME ON READER FLAG 

01427 

7 0 014 4 


RS8 


/DO IT AGAIN 

01430 

621403 


JMP# 

/ 

READPT 


01431 

442244 

READAp 

ISH 

REPTIM 


01432 

601404 


JMP 

REAPPT+1 


01433 

202307 


LAC 

(REDEKR«l*40000g 

i /too late with reader flag 

014 3 4 

1004 6 0 


JMS 

TSIXBT 

/READ TIMER ERROR, FLAG DIDN'T COME UP 

01435 

601100 


JMP 

ADDER 

/FOR SOME REASON, START AGAIN, 

01436 

202310 

RNQTPE 

LAC 

(RNTPErrl + 400000 

/READER no tape message 

01437 

100 4 6 0 


JMS 

TSIXBT 


01440 

601100 


JMP 

adder 



i EJECT 


o 



PACE 8 

A 0 P E R 

SRC ADO 

programs 

; TQ DIRECTORY 

o 

014 41 

a 0 3 3 0 D 

DTWRIT 

0 



01442 

442234 


IS2 

EOF 

o 

014 4 6 

601461 


JMP 

AUDERP 

014 4 4 

7777/7 


LAW 



314 4 5 

042234 


DAC 

e dp 

o 

01446 

202254 


LAC 

UPQTBK 

01447 

741230 


SNA 



01450 

601533 


JMP 

aqqern 


0 1 4 51 

040024 


DAC 

blknum 

o 

01452 

342311 


TAP 

(000020 


01456 

042254 


DAC 

UPDTBK 


014 5 4 

7 70203 


LAW 

*10000 

o 

01455 

240034 


DAC 

WRJTE+2 


01456 

362246 


TAP* 

TEMP 


214 5 7 

062246 


DAC* 

tEMP 

o 

21460 

601537 


JMP 

/ 

OHM 

APDERM 

o 

014 61 

142234 

ADOERP 

EOF 

01462 

222254 


LAC 

UPDTBK 


31463 

741200 


SNA 


o 

01464 

601531 


JMP 

ADDERR 

01465 

040024 


DAC 

BLKNUM 


01466 

202273 

ADDERS 

LAC 

(007777 


31467 

0 4 0 33 6 


DAC 

WRJTE+3 

o 

01470 

740031 


CM A 



01471 

342302 


TAD 

(000001 

15 

o 

01472 

340015 


TAD 

01473 

740001 


CM A 



01474 

342302 


TAD 

(1 

o 

01475 

040334 


DAC 

WR | TE+2 

01476 

362246 


TAD* 

TEMP 


01477 

01500 

062246 

601511 


DAC* 

JMP 

TEMP 
ADDER I 

o 




/ 



01521 

101516 

ADDERR 

JMS 

APDERU 


01532 

601466 


JMP 

ADDERS 

o 




, EJECT 



o 


o 

o 

o 

o 

o 


o 



o 


o 


o 

/EOF INDICATOR 

/yes 

o 

/NOT END OF FILE 

/update BLOCK number 

o 

/FIRST PASS AND NOT EOF 


o 


o 

/UPDATE WORD COUNT FOR NEW FILE BY 
/4096 

O 

/END OF FILE PASS COUI.D BE ANY NUMBER, 


/FIRST PASS 

/BOOTSTRAP BLOCK # O 

/ C A , » 1 

/BOOTSTRAP CA 

o 

/COMPUTE WORD COUNT 
/FOR PARTIAL BUFFER 


/CALCULATE TOTAL WORD COUNT 

/FOR THJS PROGRAM O 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 

o 
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ADDER 

SRC ADD 

programs 

! TO DIRECTORY 

0 

01503 

1 D 1 516 

ADPERN 

JMS 

APDERU 


01504 

7 700 D 3 


LAW 

*10000 


01505 

062246 


DAC<* 

TEMP 

o 

01506 

340334 


DAC 

WRITE*2 


01507 

2022/3 

ADDERM 

LAC 

(007777 


01510 

0 4 0 3 3 5 


PAG 

WRITE+3 

o 

01511 

100332 

ADDERT 

JMS 

WRITE 


01512 

202234 


LAC 

EOF 


01513 

740200 


Si? A 


o 

01514 

621441 


JM P* 

PTWRIT 


01515 

601557 


PMP 

VERFYA 

o 

01516 

000000 

ADPERIJ 

f 

0 



0 1 5 1 7 

202246 


LAC 

TEMP 


01520 

7400 i i 


CM A 


o 

01521 

342302 


TAP 

u 


01522 

34226/ 


TAD 

(DIRECT 


01523 

741100 


SPA 


o 

31624 

601527 


JMP 

i *3 


01525 

202312 


LAC 

(40 


01526 

601546 


JMP 

APDERX 

o 

01527 

777776 


LAW 

net 


31530 

342246 


TAD 

TEMP 


31531 

042246 


DAC 

TEMP 

o 

01532 

222246 


LAC* 

TEMP 


3 153 3 

042241 


DAC 

pblknm# 


01534 

442246 


l S2 

TEMP 

o 

01535 

222246 


LAC* 

TEMP 


21536 

442246 


I S I 

TEMP 


01537 

142232 


OHM 

PNTBLK# 

o 

0154 0 

442232 


IS2 

cntbLK 


01541 

342313 


TAD 

(000400 


01542 

741100 


SPA 


o 

01543 

601540 


JMP 

( *3 


01544 

202232 


LAC 

cntblk 


01545 

342241 


TAD 

PBLKNM 

o 

0 154 6 

040024 

ADDERX 

PAC 

BLKNUM 


01547 

342311 


TAP 

(000020 


01550 

042254 


DAC 

UPDTBK' 

o 

01551 

442246 


IS2 

TEMP 


01552 

442246 


IS2 

TEMP 


01553 

230024 


LAC 

BLKNUM 

o 

01554 

062246 


PAC* 

TEMP 


01555 

442246 


ISZ 

TEMP 


01556 

621516 


JMP* 

APDERU 

o 




, EJECT 



o 


o 

o 

o 


/FIRST PASS, NOT EqF 


/EOF? 


/YES NOW VERIFY DATA ON OECTAPE 


/CHECK TO SEE THAT THE ADDRESS POINTED 
/TO IN TEMP IS STILL, IN THE DIRECTORY, 
/the FIRST PROCRAM SHOULD START AT SLOCK 
/NUMBER 40 (OCTAL) 


/GET BLOCK NUMBER OF PRECEDING PROGRAM 


/GET WORD COUNT OF PRECEDING PROGRAM 

/COMPUTE TOTAL SLOCKS REQUIRED FOR PRECEDING 
/PROGRAM AND ADD TO HIS LOCATION ON 
/TAPE AND INSERT INTO DIRECTORY, 


/# OF BLOCKS REQUIRED BY PRECEDING PROGRAM 


/PUT STARTING BLOCK NUMBER OF NEW PROGRAM 
/INTO DIRECTORY 


O 
o : 
o 
° 
o 

o j 

° ! 

I 

o 

o ,f 

o 

O ; 

°j 

O ; 

o I 
° j 

o ! 

o 

o 

o 

o 

o 


o 
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0 3,55)7 

142233 

VEHF'YA 

OHM 

CHKSUN 

0.1560 

777777 


U A W 

-1 

31561 

342246 


TAD 

TEMP 

01562 

2)42246 


QAC 

TEMP 

01563 

222246 


LAC* 

TEMP 

0156 4 

042245 


DAC 

STBLK# 

01565 

442246 


IS2 

TEMP 

01566 

222246 


LAO 

TEMP 

0156 7 

342314 

VERFYC 

TAD 

(010000 

01570 

7 4 01 0 0 


SNA 


01571 

601617 


JMP 

VERFYB 

01572 

042255 


DAC 

wclef U 

01573 

770000 


LAW 

*3,0000 

01574 

040316 


DAC 

READ+2 

01575 

202273 


LAC 

(007777 

01576 

£40317 


DAC 

READ+3 

01677 

202245 


LAC 

SfBLK 

01600 

040024 


DAC 

BLKNUM 

01601 

342311 


TAP 

(000020 

01602 

042245 


DAC 

SfBLK’ ' 

01603 

100314 


JMS 

HEAD 

01604 

202273 


LAC 

(007777 

0 1 6 0 5 

040016 


DAC 

16 

31606 

770000 


LAW 

*10000 

01607 

042231 


DAC 

CNT 

01610 ' 

220016 


LAO 

16 

01611 

342230 


TAD 

CHKSUM 

31612 

042230 


DAC 

C M K SUM 

01613 

442231 


iSZ 

CNT 

01614 

601610 


JMP 

i *4 

31615 

202255 


LAC 

WCLEFT 

01616 

601567 


JMP 

VERFYC 

01617 

342315 

VERFYB 

TAD 

(*10000 

01620 

042255 


DAC 

WCLEFT ' 

01621 

0 4 0316 


DAC 

READ+2 

01622 

202273 


LAC 

(007777 

01623 

040317 


DAC 

READ* 3 

01624 

202245 


LAC 

SfBLK" 

01625 

040024 


DAC 

BLKNUM 

01626 

100314 


JMS 

HEAD 

01627 

202273 


LAC 

(007777 

01630 

040016 


DAC 

16 

01631 

220016 


LAO 

16 

01632 

342233 


TAD 

CHKSUM 

01633 

0 4 223 0 


DAC 

CHKSUM 

01634 

442255 


ISZ 

WCLEFT 

0 1 6 3 5 

6 0 1 6 3 1 


JMP 

» “4 

01636 

202233 


LAC 

CHKSUM 

01637 

740203 


S2A 


01640 

601734 


JMP 

cksmeh 




, EJECT 



/THJS ROUTINE IS TO CHECK THAT DECTAPE 
/CUNTAINS ALL THE CORRECT DATA, THE SUM OF 
/ALL THE WORDS SHOULD BE 2ER0, 

/GET STARTING BLOCK NUMBER 


/CHECK SUM ERROR, 


PAGE U ADDER SRC ADD PROGRAMS TO DIRECTORY 


/MOW WRITE UPDATED DIRECTORY ON DECTAPE 
/ 


01641 

202316 

LAC 

(SLINK*! 

01642 

040017 

DAC 

17 

01643 

777741 

LAW 

*37 

016 4 4 

042231 

DAG 

CNT 

016 4 5 

160017 

Q2M# 

J7 

0 16 4 6 

442231 

ISZ 

CNT 

01647 

601645 

JMP 

/ 

LAW 

» "’2 

01650 

777775 

*3 

01651 

342246 

TAD 

TEMP 

01652 

042246 

DAC 

TEMP 

016 53 

202224 

LAC 

A~ 

0 1 6 5 4 

062246 

DAC<* 

TEMP 

0 1655 

442246 

ISZ 

TEMP 

016 5 6 

202225 

LAC 

B 

01657 

062246 

DAC* 

TEMP 

01660 

777775 

LAW 

*3 

01661 

042233 

DAC 

CNTR# 

01662 

202317 

verfye lac 

(477 

01663 

040335 

DAC 

WRITE*? 

016 6 4 

777400 

LAW 

"400 

016 6 5 

040334 

DAC 

WRITE*? 

01666 

202302 

LAC 

(1) 

01667 

O40024 

DAC 

6LKNUM 

01670 

100332 

JMS 

write 

01671 

202273 

LAC 

(007777 

016 7 2 

040317 

DAC 

R E A P * 3 

01673 

777522 

LAW 

*256 

01674 

040316 

DAC 

READ + 2 

016 7 5 

100314 

JMS 

READ 

01676 

777610 

LAW 

*170 

016 7 7 

042231 

DAC 

CNT 

01700 

202320 

LAC 

(DIRECT* 

01701 

040016 

DAC 

16 

0 1 7 0 2 

202321 

LAC 

( 10064 

01703 

040017 

DAC 

1/ 

01704 

220016 

LAC# 

16 

01705 

560017 

SAD** 

17 

01706 

741000 

SKP 


01707 

6 0 172 6 

JMP 

PIRCER 

01710 

442231 

ISH 

CNT 

01711 

601704 

JMP 

, EJECT 

» ^5 


/CLEAR unk table 


/WRITE THE DIRECTORY JN MONITOR 
/NOW CHECK directory BY reading 

/AND CHECKING AGAINST CORE 


/DIRECTORY COMPARE ERROR 


o 


o 



PAGE 12 

ADDER 

SRC ADD 

PROGRAMS TO DIRECTORY 

o 

01712 

202322 

VERFYD 

LAC 

(PONT IN^1*400000 /NOW QUESTION OPERATOR AS TO 


0 1713 

100460 


JMS 

fSJXBT /WHETHER HE WANTS TO CONTINUE 


01714 

100253 


JMS 

WAIT /PROGRAMS OR RETURN TO MONITOR 

o 

01715 

542261 


sad 

(000283 


01716 

630120 


JMP 

GETMQN 


01717 

542323 


SAD 

( 000316 

o 

017 20 

600122 


JMP 

GETM0N*2 


01721 

542324 


SAD 

(800331 


01722 

601106 


JMP 

ADD, l" 

o 

01720 

760277 


LAW 

277 


01724 

100522 


JMS 

TYRONE 


01725 

601714 


JMP 

VERFYD+2 

o 




/ 



01726 

442233 

DIKCER 

JS2 

cntr 


01727 

601662 


JMP 

V ERF YE 

o 

01730 

202325 


LAC 

(DRCER*lt400000 


01731 

100460 


JMS 

tSJXBT 


0 17 32 

700312 


KR8 


o 

01733 

630122 


JMP 

/ 

GETMQN*? 


01734 

202326 

cksher 

LAC 

( ACSMER^1*400000 

o 

01735 

100460 


JMS 

tsixbt 


01736 

780312 


KRB 



01737 

608122 


JMP 

GETMON+2 

o 




/ 



01/40 

0 0 0 0 0 0 

DBPRSE 

0 

/double precision shift left R 


01741 

042246 


DAC 

TEMP /FOR SIX 6 BIT CHOPPED ASCII C 

o 

01742 

282225 


LAC 

B 


01743 

740313 


RAL 



01744 

100533 


JMS 

LRQT6 

o 

01745 

042247 


DAC 

TEMPI? 


31746 

740320 


RAR 



01747 

502327 


AND 

( 777708 

o 

01750 

242246 


XOR 

TEMP 


31751 

342225 


DAC 

B" 


01752 

232247 


LAP 

TEMPI 

o 

01753 

392265 


AND 

(0000/7 


01754 

342247 


DAP 

TEMPI' 


01755 

232224 


LAC 

a' 

o 

01756 

100533 


JMS 

LRPT6 


3175 7 

502327 


AND 

(777700 


01760 

242247 


XOR 

TEMPI" 

o 

81761 

042224 


DAC 

A 


01762 

621740 


JMP* 

/ 

PBPRSU 

o 

01763 

000080 

RRQT6 

0 

/SHIFT AC 6 PLACES TO RIGHT 


31764 

742020 


RTR 



81765 

742328 


RTR 


o 

81766 

742820 


RTR 



017 6 7 

621763 


JMP# 

RR0T6 


o 


o 


o 


ADDING 


.EJECT 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


PAGE 


13 

ADDER 

SRC ADD PROGRAMS TO DIRECTORY 


01770 

000000 

PRGSZE 0 



01771 

202243 

LAC 

REPBUF 


01772 

342315 

TAD 

( "1000 0 


01773 

740300 

SZAISMA 



01774 

601777 

JMP 

i*3 


01 7/5 

202240 

LAC 

MODE 


01776 

621770 

JMP# 

P ft G S Z E 


01777 

342314 

TAD 

U0000 


02000 

042240 

DAC 

MOPE 


02001 

202330 

LAC 

(PTBMSGwj. + 400000 

02002 

100460 

JMS 

tsixbt 


02003 

202240 

LAC 

MODE 


02004 

1 0 0 5 4 0 

JMS 

PSOD 


02005 

700312 

KRB 



02006 

600122 

• JMP 
/ 

/SUBROUTINE to 
/ 

CNV6BT 0 

GETMON+-2 




CONVERT MACRO 9 

RADIX 50 SYMBQI, TO .SIXBJT, 

02007 

000000 


/ENTER WITH RADIX 50 NUMBER IN THE AC 

02010 

042237 

DAC 

LTEMP3# 

/STORE AS MJNUEND 

02011 

142235 

OHM 

LTEMP# 


02012 

774700 

LAW 

*31,00 ' 


02013 

102044 

JMS 

SUBTRC 

/determine first character 

02014 

342331 

tad 

/ 

/CONVERT RADIX 
/ 

(*35 

/RETURN WJTH CHAR, IN UTEMP * AC 



50 COPE TO ASCII 

(IE! 35-46 TO 60-71! 


32015 

750100 

SMAJCLA 



32016 

202332 

LAC 

(23 


02017 

342235 

TAD 

LTEMP 


02020 

744030 

CLL 



02021 

100533 

JMS 

LR0T6 


02022 

042235 

DAC 

LJEMP 


02023 

777730 

LAW 

*50 


32024 

102044 

JMS 

SUBTRC 

/DETERMINE second character 

02025 

502265 

AND 

(77 

/MASK OUT FIRST CHARACTER 

02026 

34233:1 

TAD 

<*35 


02027 

750100 

SMAJCLA 



02030 

202332 

LAC 

(23 


32031 

342235 

tad 

LTEMP 


02332 

744000 

CLL 



02033 

10053 3 

JMS 

LRQT6 

/POSITION FIRS? & SECOND CHAR, 

02034 

042235 

DAC 

LTEMP 


02035 

202237 

LAC 

LTEMP3 

/FETCH 3RD CHARACTER 

02036 

342331 

TAD 

<*35 


02037 

750100 

SMAJCLA 



02040 

202332 

LAC 

<23 


02341 

342237 

TAD 

L t E M P 3 


32042 

342235 

TAD 

LTEMP" 

ZAP CONTAINS 3 , S J X 8 1 T CHARACTERS 

023 4 3 

62200/ 

JMP* 

CNV6BT 




, EJECT 




PAGE 14 


ADDER SRC 


ADO PROGRAMS TO DIRECTORY 


02044 

000000 

SUBTRC 0 


/ENTER WITH SUBTRAHEND JN THE AC 

02045 

042236 

DAC 

LTEMP2# 


02046 

202237 

L. AC 

LTEMP3 

/fetch minuend 

0204 7 

744000 

cm 


02050 

342236 

TAP 

l, TEMP2 

/SUBTRACT 

02051 

740400 

SNL 

/SKIP IF TRUE SUBTRACT 

02052 

602056 

JMP 

X3UBTH 


02053 

442235 

ISH 

ltemp 

/INCREMENT TRUE SUBTRACT COUNTER 

02054 

04223/ 

DAC 

LTEMP3 

/STORE RESULT AS NEW MINUEND 

02055 

60204/ 

JMP 

SUBTRC+3 



/ 

/EXIT WITH PART I AL CONVERSION 
/ 


02056 

202235 

XSUBTR 

LAC 

LTEMP 

02057 

622044 


JMP* 

/ 

0 

SORTRC 

02060 

000000 

DBPRSR 


02061 

760334 


LAW 

000334 

02062 

100522 


JMS 

TYRONE 

02063 

202225 


LAC 

B 

02064 

74 400 0 


CLL 


02065 

50232 7 


and 

( 777700 

02066 

101763 


JMS 

RR0T6 

02067 

042225 


DAC 

B 

02070 

202224 


LAC 

A 

02071 

744020 


RCR 


020/2 

1D1763 


JMS 

RRQT6 

02073 

042224 


DAC 

A 

020 7 4 

502315 


AMD 

(770000 

02075 

242225 


XQR 

B 

02076 

042225 


DAC 

B 

02077 

202224 


LAC 

A 

02100 

740010 


RAL 


02101 

502273 


AND 

(007777 

02102 

042224 


DAC 

A 

02103 

622060 


JMP* 

DBPRSH 




, EJECT 



IN LTEMP & AC 


/REPLY WITH BACK SLASH AND PERFORM 
/A double precision SHIFT right 
/with The sjx choppe 0 ascii 

/BYTES, THEY ARE IN LOCATIONS "A" 
/"B", THE FORMAT IS A1,A2,A3iB1,,BI?,83 
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ADDER 


ADD PROGRAMS Tp DIRECTORY 


SRC 


02104 

0 31005 

READER 

* S I XBT 

02105 

031340 



02106 

232515 



02107 

400522 



02110 

221722 



02111 

402001 



02112 

200522 



02113 

402401 



02114 

200500 



02115 

404027 

WHAT 

,SJXBT 

02116 

100124 



02117 

ii mm 



02120 

241124 

TJTMSG 

fSIXPT 

02121 

140577 



02122 

404000 



02123 

041122 

ORDER 

, SI XBT 

02124 

050324 



02125 

172231 



02126 

400317 



02127 

152001 



32130 

220540 



02131 

052222 



02132 

17224U 



02133 

000000 



02134 

151722 

CQNTJN 

i S I XBT 

02135 

05774U 



02136 

503140 



32137 

172240 



02140 

165140 



02141 

000000 



02142 

031035 

ACSMER 

t S 1 XBT 

02143 

031343 



02144 

232515 



02145 

400522 



02146 

221722 



02147 

4 0 4004 



02150 

012401 



02151 

401/16 



02152 

400424 



02153 

402722 



02154 

171607 



02155 

000000 




’CHECK SUM ERROR PAPER TAPE® 1 

’ what?@’ 

’TITLE? O’ 

’DIRECTORY COMPARE ERROR Of 
’MORE? (Y OR N) O’ 

’CHECK SUM ERROR DATA ON DT WRONGS’ 


, EJECT 


o 


o 



PAGE 16 

ADDER 

SRC ADD 

programs to directory 


o 

0 2156 

0104 a 4 

ENTER 

, S J XBT 'ADO JO PILE®' 

O 


02157 

402417 





02160 

400611 




o 

02161 

140500 



O 


02162 

202217 

PT8MSG 

,SIXBT 'PROGRAM TOO BIG, ASSEMBLED SIZE 9' 



02163 

072201 




o 

02164 

154024 



O 


02165 

171740 





02166 

021107 




o 

02167 

564001 



O 


02170 

232305 





02171 

150214 




0 

02172 

050440 



O 


02173 

231132 





02174 

054000 




o 

02175 

041122 

QIRFL 

, S I XB J 'DIRECTORY FUEL®' 

O 


02176 

0 5 0 3 2 4 





02177 

172231 




o 

02200 

400625 



o 


02201 

141400 





02202 

272217 

TITLER 

, S I XB T 'WRONG TAPE PTR CONTAINS CM 


o 

32203 

160740 



o 


02204 

240120 





02205 

054040 




o 

92206 

202422 



o 


02207 

400317 





02210 

162401 




o 

02211 

11162 3 



o 


02212 

400000 





02213 

161740 

REPERR 

, S I XBT 'NO PTR F|»AGGM 


o 

0221,4 

202422 



o 


02215 

400614 





02216 

010700 




o 

02217 

220501 

rntpe 

i S I XBT 'READER NO TAPE® • 

o 


02220 

040522 





02221 

401617 




o 

02222 

432401 



o 


02223 

200500 








.EJECT 


o 





o 


o 


o 


o o 

o o 


o 


o 


o o 

O G 


o 




o 

o 




o 
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ADDfc-R 

SRC ADD PROGRAMS TO DIRECTORY 

& 

0 


000000 

t END 

o 


02257 

002155 

H 



02260 

402X17 

H 


o 

02261 

000203 

“L, 

o 


02262 

0003/7 

H 



02263 

777777 

*1, 

1 

o 

02264 

000215 

*U 

o 


02265 

000077 




02266 

002114 



o 

02267 

000565 

U 

O ! 


32270 

000004 

4 *L 



02271 

402174 


X-N ! 

o 

02272 

0 0 0 0 0 3 


o 


02273 

007777 

*U 



02274 

377000 



o 

02275 

000002 


o 


02276 

000007 




02277 

000005 



o 

02300 

377777 


O I 


02301 

402201 

H 

1 


02302 

000001 



o 

02303 

001375 


o 


02304 

402103 

*U 



02305 

001000 

*L 


o 

02306 

747777 


o 


02307 

402212 

*L 



02310 

402216 

H 


o 

02311 

000020 


o 


02312 

000040 

*u 



02313 

000400 



o 

02314 

010000 

*u 

o 


02315 

770000 




02316 

000755 

*L, 


o 

02317 

000477 

*u 

o 


02320 

000564 

H 



02321 

010064 

*U 


0 

02322 

402133 

% 

o 


02323 

000316 




02324 

000331 

H 


o 

02325 

402122 

U 

o 


02326 

402141 


• 


02327 

777/00 

H 


o 

02330 

402161 

*1, 

o 


02331 

777743 

4 >L, 



02332 

000023 

H 


o 


SI£E 

= 02333 NO ERROR I.INES 

o 

o 




o 

o 




o 

o 




o 


o 
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ADD PROGRAMS TO DIRECTORY 


ADDER SRC 


A 

0222 4 

acsmer 

02142 

ADDER 

01100 

AOOERA 

01115 

ADDERS 

01132 

adderc 

01147 

AUPERD 

01164 

APPERE 

01200 

APQERG 

01226 

ADDERS 

01245 

ADDERM 

01507 

APDERN 

01503 

AQDERP 

01461 

adderr 

01501 

ADDERS 

01466 

AOQERT 

01511 

ADDERU 

01516 

APPERX 

01546 

AUD,1 

01106 

B 

02225 

8UKNUM 

000024 

C 

02226 

CARCNT 

02227' 

CHKSUM 

02230 

CKSMER 

01734 

CNT 

02231 

ONTBLK 

02232 

CNTR 

02233 

CNV60T 

02007 

CONTIN 

02134 

ORLF 

000514 

0BPR5U 

01740 

D8PRSR 

02060 

DIRCER 

01726 

DIRECT 

000565 

OIRFU 

02175 

ONCER 

02123 

dtwrit 

01441 

ERA 

707764 

EEM 

707702 

enter 

02156 

EOF 

02234 

GE T MON 

000120 

KRB 

700312 

EROT6 

000533 

LTEMP 

02235 

LTEMP2 

"02236 

LTEMP3 

02237 

MODE 

02240 

P8CKNH 

02241 

PRGS2E 

01770 

PHOS2 

02242 

PSOD 

000540 

ptbmsg 

02162 

P6B IT 

01371 

paBITJ, 

01376 

READ 

000314 

READAP 

01431 

REAPER 

02104 

reaqpt 

01403 

REDBUF 

02243 

REDERR 

02213 

R E D 1 1 M 

02244 

REEDER 

01400 

R N 0 T P E 

01436 

RNTPE 

02217 

RRB 

700112 

RR0T6 

01763 

rsb 

700144 

RSF 

700101 

SLINK 

000756 

STBUK 

02245 

SUBTRC 

02044 

TEMP 

02246 

TEMPI 

‘02247 

TITERA 

01360 

TJTERB 

01354 

TITERR 

01337 

TITIND 

02250 

titue 

01300 

f ITLEA 

01315 

TITLES 

01313 

f ITLEC 

01327 

TITUER 

02202 

TITMSG 

02120 

TMODE1 

02251 

TMODE2 

02252 

TOTSZE 

02253 

TSIXBT 

000460 

TYPONE 

000522 

UPDTBK 

02254 

UPREFX 

000560 

verfya 

01557 

VERFYB 

01617 

verfyc 

01567 

VERFYP 

01712 

VERFYE 

01662 

WAIT 

000253 

WCLEFT 

02255 

WHAT 

02115 

WRDCNT 

02256 

WRITE 

000332 

XSUBTR 

02056 




o 


o 



PAGE 

19 ADDER 

SRC 

ADD 1 

PROGRAMS TO ! 

DIRECTORY 



o 

blknum 

000024 

GETMON 

000120 

WAIT 

000253 

reap 

000314 


WRITE 

030332 

TSIXBT 

000460 

CRLF 

000514 

TYPONE 

000522 


LR0T6 

000533 

PSOD 

000540 

UPREFX 

000560 

DIRECT 

000565 

o 

SLINK 

000756 

adder 

0itD0 

add 1 1 

01106 

ADDERA 

01115 


APDERB 

01132 

ADDERC 

01147 

ADPERD 

01164 

ADDERE 

01200 


APDERG 

01226 

ADDERH 

01245 

TITL.E 

01300 

TITLEB 

01313 

o 

TITLEA 

01315 

TITLED 

01327 

TJTERR 

01337 

TlfERB 

01354 


THERA 

01360 

P6BIT 

01371 

P6BJT1 

01376 

REEDER 

01400 


READPT 

01403 

READAP 

01431 

RNOTPE 

01436 

OTWRJT 

01441 

o 

ADDERP 

01461 

ADDERS 

01466 

AODERR 

01501 

aqpern 

01503 


ADOERM 

01507 

ADDERT 

01511 

ADOERU 

01516 

AQDERX 

03,546 


VERFYA 

01557 

verfyc 

01567 

verfyb 

01617 

VERFYE 

01662 

o 

VERFYD 

01712 

DIRCER 

01726 

CKSMER 

01734 

dbprsu 

01740 


RRQT6 

01763 

PRGSZE 

01770 

CNV6BT 

02007 

SUBTRC 

02044 


XSUBTR 

02056 

DBPRSR 

02060 

READER 

02104 

WHAT 

02115 

o 

TITNSG 

02120 

drcer 

02123 

CQNT IN 

02134 

ACSMER 

02142 


ENTER 

02156 

PTBMSG 

02162 

DIRFL 

02175 

TITUER 

02202 


REDERR 

02213 

RNTPE 

02217 

A 

02224 

B 

02225 

o 

c 

02226 

CARCNT 

02227 

CHKSUM 

02230 

CNT 

02231 


CNTBLK 

02232 

CNTR 

02233 

EOF 

02234 

ltemp 

02235 


LTEMP2 

02236 

LTEMP3 

02237 

MOPE 

02240 

pblknm 

02241 

0 

PR0S2 

02242 

REUBUF 

02243 

REDT IM 

02244 

STBUK 

02245 


TEMP 

02246 

TEMPI 

02247 

TITlND 

02250 

tmodei 

02251 


TH00E2 

02252 

TOTSZE 

02253 

UPDTBK 

02254 

WCUEFT 

02255 

0 

WRDCNT 

02256 

RSF 

700101 

RRB 

700112 

RSB 

700144 


KRB 

700312 

EEM 

707702 

EBA 

H 7764 




o 


o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 

o 1 

i 

I 

o 

! 

o 

1 

j 

o : 

o 

o 

I 

o 

j 

o . 
o 
o 
o 

I 

o 

° I 

o ! 
o 
o 
o 

o i 

o I 

o ! 


o 


